cyber.net interactivo 3/inter@ivo 1996-04.iso/cybint3/bin/tmn.dxr/00021.ls

Text File | 1996-03-21 | 4.3 KB | 126 lines

on mouseDown
  global Tempos, Locx, Locy, Osprite
  set Osprite to the clickOn
  if Osprite <> 0 then
    sound playFile 3, "..\som\tmboneco.wav"
  end if
  set Locx to the locH of sprite Osprite
  set Locy to the locV of sprite Osprite
  set clickOn to 0
end

on mouseUp
  global Tempos, Locx, Locy, Osprite, pontos, contac, OSpritec, pscore, guarda1, guarda2
  if (guarda1 <> Osprite) and (guarda2 <> Osprite) then
    if ((the locH of sprite Osprite > 240) and (the locH of sprite Osprite < 438) and (the locV of sprite Osprite > 27) and (the locV of sprite Osprite < 296) and (Osprite = 3)) or ((the locH of sprite Osprite > 438) and (the locH of sprite Osprite < 632) and (the locV of sprite Osprite > 29) and (the locV of sprite Osprite < 298) and (Osprite = 4)) then
      set pontos to pontos + 1
      if guarda1 = 0 then
        set guarda1 to Osprite
      end if
      set Osprite to 0
    end if
  end if
  if (Osprite <> 0) and (Osprite <> 3) and (Osprite <> 4) and ((the locH of sprite Osprite > 240) and (the locH of sprite Osprite < 600) and (the locV of sprite Osprite > 37) and (the locV of sprite Osprite < 298)) then
    set the locH of sprite Osprite to Locx
    set the locV of sprite Osprite to Locy
    sound playFile 3, "..\som\tmatende.wav"
    set contac to contac + 1
    set pscore to pscore - 50
    set the visible of sprite OSpritec to 0
    set OSpritec to OSpritec + 1
  else
    if (Osprite <> 3) or (Osprite <> 4) then
      set the locH of sprite Osprite to Locx
      set the locV of sprite Osprite to Locy
    end if
  end if
  if contac = 5 then
    set the visible of sprite 24 to 1
    sound playFile 3, "..\som\tmatende.wav"
    go(the frame + 1)
  end if
  if pontos = 2 then
    sound playFile 3, "..\som\tmliga.wav"
    go("etapa2")
  end if
end

on exitFrame
  global pscore, contac
  if pscore = 450 then
    puppetSprite(21, 1)
    puppetSprite(22, 1)
    set the locH of sprite 21 to 19
    set the locV of sprite 21 to 197
    set the visible of sprite 21 to 1
    set the visible of sprite 23 to 0
    set the locH of sprite 22 to 43
    set the locV of sprite 22 to 186
  else
    if pscore = 400 then
      puppetSprite(23, 1)
      set the visible of sprite 22 to 0
      set the locH of sprite 23 to 46
      set the locV of sprite 23 to 185
      set the visible of sprite 23 to 1
    else
      if pscore = 350 then
        puppetSprite(20, 1)
        set the visible of sprite 21 to 0
        set the locH of sprite 20 to 19
        set the locV of sprite 20 to 196
        set the visible of sprite 20 to 1
        set the visible of sprite 23 to 0
        set the visible of sprite 22 to 1
      else
        if pscore = 300 then
          set the visible of sprite 22 to 0
          set the visible of sprite 23 to 1
        else
          if pscore = 250 then
            puppetSprite(19, 1)
            set the visible of sprite 20 to 0
            set the locH of sprite 19 to 19
            set the locV of sprite 19 to 194
            set the visible of sprite 23 to 0
            set the visible of sprite 19 to 1
            set the visible of sprite 22 to 1
            set the visible of sprite 17 to 1
          else
            if pscore = 200 then
              set the visible of sprite 22 to 0
              set the visible of sprite 23 to 1
            else
              if pscore = 150 then
                puppetSprite(18, 1)
                set the visible of sprite 19 to 0
                set the locH of sprite 18 to 22
                set the locV of sprite 18 to 194
                set the visible of sprite 18 to 1
                set the visible of sprite 23 to 0
                set the visible of sprite 22 to 1
              else
                if pscore = 100 then
                  set the visible of sprite 22 to 0
                  set the visible of sprite 23 to 1
                else
                  if pscore = 50 then
                    set the visible of sprite 18 to 0
                    set the visible of sprite 23 to 0
                    set the visible of sprite 22 to 1
                  else
                    if pscore = 0 then
                      set the visible of sprite 22 to 0
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  go(the frame)
end